home *** CD-ROM | disk | FTP | other *** search
/ Atari Mega Archive 2 / Atari Mega Archive CD - Volume 2.iso / 8bit / cislib_a / frmt25.lst < prev    next >
File List  |  1995-04-22  |  2KB  |  27 lines
  1. 0 REM  FORMAT 2.5  BY ALAN M. GLICK 
  2. 1 REM V.1.O;MAY 24,1985 
  3. 4 REM MODIFICATION OF FORMAT1 BY JERRY WHITE ORIGINALLY PUBLISHED IN ... 
  4. 5 REM ACE NEWSLETTER 3662 VINE MAPLE DR,EUGENE,OR 97405 
  5. 6 REM MARCH 1981 ISSUE 
  6. 9 REM  SET TEXT MODE,BLACK & WHITE,MARGINS,PRINTTAB WIDTH,NO CURSORS  
  7. 10 GRAPHICS 0:SETCOLOR 2,0,0:POKE 82,2:POKE 83,39:POKE 201,10:POKE 752,1:?  
  8. 20 ? "FORMAT  DUAL  2.5 DISK ON DR.1":? :? "    PRESS  START  WHEN READY.":GOTO 80 
  9. 30 REM  STORE CURRENT SUCCESSFUL FORMATS+1 THEN SAY WHAT WE ARE UP TO.  
  10. 40 F=F+1:? CHR$(125):? :? :? :? "FORMATTING DISK # ";F 
  11. 50 TRAP 200:XIO 253,#7,34,0,"D1:":TRAP 40000:REM  SET DRIVE # & START  
  12. 55 POKE 66,1:? CHR$(253):POKE 66,0:REM  RING BELL BUT NOT TOO LOUD  
  13. 60 ? "DISK FORMATTED":? :POKE 77,0:REM DISPLAY RESULTS 6 KIL ATTRCT MODE 
  14. 70 ? "PRESS START TO FORMAT ANOTHER DISK":? "PRESS OPTION TO END THIS PROGRAM" 
  15. 80 IF PEEK(53279)=6 THEN 40:REM  INSTANT REPLAY  
  16. 90 IF PEEK(53279)=3 THEN 300:REM  THAT'S ALL FOLKS  
  17. 100 GOTO 80:REM  WHATCHA WANT?PRESSA BUTTON  
  18. 180 REM  A TRAP TO LINE 200 WAS SET IN LINE 50 FOR UNFORMATTABLE DISKS  
  19. 190 REM  ABORT BY TAPPING THE BREAK KEY IN MOST CASES  
  20. 195 REM  YOU MIGHT HAVE TO REMOVE THE DISK AND THEN TURN THE DRIVE OFF AND ON.  
  21. 200 ? CHR$(253):? :? "I WAS UNABLE TO FORMAT THIS DISKETTE":?  
  22. 210 BAD=BAD+1:F=F-1:GOTO 70:REM  ONE LESS SUCCESSFUL FORMAT  
  23. 300 ? CHR$(125):? :? F;" DISKS FORMATTED":? :? "UNABLE TO FORMAT ";BAD;" DISK(S)" 
  24. 310 REM  SAY WHAT WE ACCOMPLISHED AND LET BASIC TAKE OVER  
  25. 320 ? :? "END OF PROGRAM FORMAT25":? :? "BASIC IS....":POKE 752,0 
  26. 330 END  
  27.